home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 12 / Amiga Format AFCD12 (Apr 1997, Issue 96).iso / -screenplay- / shareware / adom / adom_install next >
Text File  |  1997-02-08  |  2KB  |  67 lines
  1. ;======================================================================
  2. ;
  3. ; Adom Install Script $VER: Install 1.0 (26.1.97)
  4. ;
  5. ; Copyright © 1997 Jochen Terstiege
  6. ;
  7. ;======================================================================
  8.  
  9. (set #hello "\nWelcome to the Adom Installation\n\n\Version 0.94 Gamma 4b")
  10. (set #select_destination "Where should i create the Adom directory?")
  11. (set #destination_help (cat "Choose a destination partition or directory. "
  12.                                     "A directory called 'Adom' will be created there."))
  13. (set #install_to1 "\nInstall Adom to \"")
  14. (set #install_to2 "\" ?")
  15. (set #have_fun "Have fun with Adom...")
  16.  
  17. ;======================================================================
  18. ; variables
  19. ;======================================================================
  20.  
  21. (set adom_source (pathonly @icon))    ; from where we were started
  22. (set adom_drawer "Adom")                ; destination drawer name
  23. (set adom_dest    "Work:")                    ; default destination
  24.  
  25. ;======================================================================
  26. ; welcome
  27. ;======================================================================
  28.  
  29. (message #hello)
  30.  
  31. ;======================================================================
  32. ; select destination
  33. ;======================================================================
  34.  
  35. (set adom_dest
  36.     (askdir
  37.         (prompt #select_destination)
  38.         (default "Work:")
  39.         (help #destination_help)
  40.     )
  41. )
  42. (set adom_dest (tackon adom_dest adom_drawer))
  43. (set @default-dest adom_dest)
  44.  
  45. ;======================================================================
  46. ; make directory
  47. ;======================================================================
  48.  
  49. (if (not (exists adom_dest))
  50.     (
  51.         (message (cat #install_to1 adom_dest #install_to2))
  52.         (makedir adom_dest (infos))
  53.     )
  54. )
  55.  
  56. ;======================================================================
  57. ; copy files
  58. ;======================================================================
  59.  
  60. (complete 0)
  61.  
  62. (copyfiles (source (tackon adom_source "Adom")) (dest adom_dest) (all))
  63.  
  64. (complete 100)
  65.  
  66. (exit #have_fun)
  67.